PC World Online - Visual Basic

EKRAN ╟╓Z▄N▄RL▄╨▄N▄ BULMAK

Dergiler verdikleri CD'ler iτin ÷zgⁿn arabirimler tasarl²yorlar. Her bilgisayarda τal²■mas² iτin 640 * 480 τ÷zⁿnⁿrlⁿkte tasarlanan bir CD arabirimi 800*600 gibi bir τ÷zⁿnⁿrlⁿkte τal²■t²r²ld²≡²nda genellikle ekran²n di≡er taraflar²n² siyaha boyar. Peki program 800*600 τ÷zⁿnⁿrlⁿkte τal²■t²≡²n² nas²l anl²yor, ekran²n di≡er k²s²mlar²n² doldurup kendini nas²l ortal²yor. A■a≡²da SystemParametersInfo API'sini kullanarak komut butonuna bas²ld²≡²nda tⁿm ekrana yay²lan ve ekran τ÷zⁿnⁿrlⁿ≡ⁿnⁿ g÷steren bir program veriyoruz.

'A■a≡²daki kodlar formlardan ba≡²ms²z
bir BAS modⁿlⁿne girecek...

Option Explicit
Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type

Public Const SPI_GETWORKAREA& = 48
Public Declare Function SystemParametersInfo Lib
"user32" Alias "SystemParametersInfoA" (ByVal uAction
As Long, ByVal uParam As Long, lpvParam As Any,
ByVal fuWinIni As Long) As Long

'Form1'e girecekà
Private Sub Command1_Click()
Dim rc As RECT
Dim r As Long
Dim msg As String

r = SystemParametersInfo(SPI_GETWORKAREA, 0&, rc, 0&)
msg = "Ekran ╟÷zⁿnⁿrlⁿ≡ⁿ" & vbCrLf
msg = msg & "Geni■lik - " & rc.Right & vbCrLf
msg = msg & "Yⁿkseklik - " & rc.Bottom & vbCrLf & vbCrLf
Text1 = msg
Me.Move rc.Left * Screen.TwipsPerPixelX, _
rc.Top * Screen.TwipsPerPixelY, _
rc.Right * Screen.TwipsPerPixelX, _
rc.Bottom * Screen.TwipsPerPixelY
End Sub